home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg1 / g51.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  48 lines
  1. 100 ' G51 T.WAKAMATSU
  2. 110 CLS:PI=3.14159!:L=1:M=1
  3. 120 C(1)=2:C(2)=3:C(3)=6:C(4)=4:C(5)=5:C(6)=1:C(7)=7
  4. 130 FOR E=1 TO 3
  5. 140   IF E=3 THEN GOSUB *HENKO
  6. 150   S=0:T=0
  7. 160   FOR K=1 TO 7
  8. 170     FOR X=K TO 14-K
  9. 180       Y=K:GOSUB *KAKU
  10. 190     NEXT X
  11. 200     IF K=7 GOTO 320
  12. 210     FOR Y=K+1 TO 14-K
  13. 220       X=14-K:GOSUB *KAKU
  14. 230     NEXT Y
  15. 240     FOR X=13-K TO K STEP -1
  16. 250       Y=14-K:GOSUB *KAKU
  17. 260     NEXT X
  18. 270     FOR Y=14-K TO K+1 STEP -1
  19. 280       X=K:GOSUB *KAKU
  20. 290     NEXT Y
  21. 300     GOSUB *KAITEN
  22. 310     L=L+1:IF L=8 THEN L=1
  23. 320   NEXT K
  24. 330   FOR D=1 TO 5000:NEXT
  25. 340 NEXT E
  26. 350 GOTO 560
  27. 360 *KAKU
  28. 370 X1=X*35+S+70
  29. 380 Y1=Y*35-T-25
  30. 390 X2=X*35+T+70+28
  31. 400 Y2=Y*35+S-25
  32. 410 X3=X*35-S+70+28
  33. 420 Y3=Y*35+T-25+28
  34. 430 X4=X*35-T+70
  35. 440 Y4=Y*35-S-25+28
  36. 450 CONNECT(X1,Y1)-(X2,Y2)-(X3,Y3)-(X4,Y4)-(X1,Y1),C(L)
  37. 460 PAINT((X1+X3)/2,(Y1+Y3)/2),C(L)
  38. 470 RETURN
  39. 480 *KAITEN
  40. 490 F=K*PI*5/180+PI/4
  41. 500 S=23/2*SQR(2)*(COS(PI/4)-COS(F))
  42. 510 T=23/2*SQR(2)*(SIN(F)-COS(PI/4))
  43. 520 RETURN
  44. 530 *HENKO
  45. 540 FOR I=1 TO 7:C(I)=0:NEXT I
  46. 550 RETURN
  47. 560 CLS
  48.